home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UNIXTOOL / GNU / PERL / PERL5.ZIP / !Perl / scripts / pl / makedoto < prev    next >
Encoding:
Text File  |  1995-04-16  |  298 b   |  13 lines
  1. # make file list of .o files for makefile
  2.  
  3. if ($#ARGV < 0) {die "Need an argument !\n";}
  4. $dirname = $ARGV[0];
  5. opendir(SOURCEDIR,$dirname) || die "Couldn't open directory!!\n";
  6. open(OUTFILE,">outO");
  7. @flob = readdir(SOURCEDIR);
  8. foreach $file (@flob)
  9. {
  10.     print "$file\n";
  11.     print OUTFILE "o.$file ";
  12. }
  13.